home *** CD-ROM | disk | FTP | other *** search
/ PCMania 18 / PCMania CD18.nrg / msp / ver_msp.bas next >
Encoding:
BASIC Source File  |  1994-02-16  |  2.7 KB  |  86 lines
  1. ' *************************************************************************
  2. ' *
  3. ' *  CAB_MSP.BAS - Programa para obtener información de la cabecera del MSP
  4. ' *                compatible con MS-DOS y Microsoft Windows.
  5. ' *    
  6. ' *  Versión:      1.00
  7. ' *
  8. ' *  Historial:    18-01-92 - Versión 1.00
  9. ' *
  10. ' *  Compilador:   Microsoft QuickBASIC 4.5
  11. ' *
  12. ' *  Autor:        Jose Domínguez Alconchel
  13. ' *                C/ Puerto Rico 13, B-7
  14. ' *                28016 Madrid
  15. ' *                España
  16. ' *                Tel. (91) 519-83-65
  17. ' *
  18. ' *  Copyright:    José Domínguez Alconchel
  19. ' *
  20. ' *************************************************************************
  21.  
  22. 'Declaración de la estructura de la cabecera del formato BMP
  23.  
  24. TYPE CabeceraMSP
  25.     Clave1 AS INTEGER
  26.     Clave2 AS INTEGER
  27.     Ancho AS INTEGER
  28.     Alto AS INTEGER
  29.     RazonAspectoX AS INTEGER
  30.     RazonAspectoY AS INTEGER
  31.     RazonAspectoImpresoraX AS INTEGER
  32.     RazonAspectoImpresoraY AS INTEGER
  33.     AnchoPaginaImpresoraX AS INTEGER
  34.     AnchoPaginaImpresoraY AS INTEGER
  35.     FactorX AS INTEGER
  36.     FactorY AS INTEGER
  37.     Checksum AS INTEGER
  38.     Reservado1 AS INTEGER
  39.     Reservado2 AS INTEGER
  40.     Reservado3 AS INTEGER
  41. END TYPE
  42.  
  43. DIM Cabecera AS CabeceraMSP
  44. DIM Byte AS INTEGER
  45.  
  46. CLS
  47.  
  48. IF COMMAND$ = "" THEN PRINT "Formato: VER_MSP Nombre_archivo.MSP": PRINT : END
  49.  
  50. OPEN COMMAND$ FOR BINARY AS #1  'Abre el fichero en formato binario
  51.  
  52. GET #1, , Cabecera              'Coge la información de la cabecera
  53.  
  54. 'Imprime en pantalla toda la información del MSP
  55.  
  56. PRINT
  57. PRINT "Información del archivo: "; COMMAND$
  58. PRINT "---------------------------------------------------------------------------"
  59. PRINT "Clave1.........................."; Cabecera.Clave1
  60. PRINT "Clave2.........................."; Cabecera.Clave2
  61. PRINT "Ancho..........................."; Cabecera.Ancho
  62. PRINT "Alto............................"; Cabecera.Alto
  63. PRINT "Razón de aspecto X (pantalla)..."; Cabecera.RazonAspectoX
  64. PRINT "Razón de aspecto Y (pantalla)..."; Cabecera.RazonAspectoY
  65. PRINT "Razón de aspecto X (impresora).."; Cabecera.RazonAspectoImpresoraX
  66. PRINT "Razón de aspecto Y (impresora).."; Cabecera.RazonAspectoImpresoraY
  67. PRINT "Tamaño página impresora X......."; Cabecera.AnchoPaginaImpresoraX
  68. PRINT "Tamaño página impresora Y......."; Cabecera.AnchoPaginaImpresoraY
  69. PRINT "Corrección del aspecto X........"; Cabecera.FactorX
  70. PRINT "Corrección del aspecto Y........"; Cabecera.FactorY
  71. PRINT "Checksum........................"; Cabecera.Checksum
  72. PRINT "Reservado1......................"; Cabecera.Reservado1
  73. PRINT "Reservado1......................"; Cabecera.Reservado2
  74. PRINT "Reservado1......................"; Cabecera.Reservado3
  75.  
  76. CLOSE #1
  77.  
  78. DO WHILE INKEY$ = "": LOOP
  79.  
  80. BEEP
  81.  
  82. CLS
  83.  
  84. END
  85.  
  86.